home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_05_(08-1984).d64 / african escape (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  104 lines
  1. 1 PRINT"[147]AFRICAN ESCAPE[145]TM":PRINT"COPYRIGHT 1982 BRUCE  ROBINSON":GOTO9020
  2. 2 J=VAL(MID$("3301010200",L,1)):RETURN
  3. 3 PRINT"NOTHING HAPPENED.":GOTO7
  4. 6 PRINT"I CAN'T DO THAT.
  5. 7 [137]299
  6. 8 [153]"OK.":[137]7
  7. 9 R$[178]"LOOK":[153]"TELL ME WHAT TO DO":[133]R$:[153]"LOAD"R$"":V$[178][200](R$,2)
  8. 10 R$[178]R$[170]"  "
  9. 30 [139]E[175]L%(20)[167]110
  10. 40 [139]E[167]E[178]E[170]1:[139]E[177]9[167][153]"CANNIBALS RECAPTURED ME!":L[178]10:E[178]1:[137]7
  11. 110 V[178]H:[129]Q[178]2[164]33[169]2:[139]V$[178][202](A$,Q,2)[167]V[178]Q[173]2:Q[178]H
  12. 125 [130]:N$[178]"":[129]Q[178][195](R$)[171]2[164]1[169][171]1:[139][202](R$,Q,1)[178]" "[167]N$[178][202](R$,Q[170]1,2):Q[178].
  13. 130 [130]:N[178].:[129]Q[178]2[164]65[169]2:[139]N$[178][202](B$,Q,2)[167]N[178]Q[173]2:Q[178]H
  14. 140 [130]:[139][194](657)[178]0[167][162]:
  15. 142 [139]N[178]7[167]N[178]18
  16. 145 [139]N$[178]"LE"[167]N[178]10
  17. 150 [139]N$[178]"PI"[167]N[178]20
  18. 160 [139]N$[178]"PO"[167]N[178]16
  19. 170 [139]N[178]6[175]L[179]6[167]N[178]27
  20. 180 [145]V[137]200,200,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500
  21. 185 [153]"HUH?":[137]7
  22. 200 [139]L[171]3[167]3
  23. 210 L[178]10:[153]"CANNIBALS HEARD ME, THEY'RE HAVING ME   FOR DINNER.
  24. 299 N=.
  25. 300 X=N:IFN=0THENX=L
  26. 310 IFX<11ANDX=LTHENPRINT"I AM IN "D$(L):IFL=3THENPRINT" -SINKING FAST
  27. 320 J[178]1:[153]"I SEE:"
  28. 325 [129]Q[178]1[164]28:[139][182](L%(Q))[178]X[167][153]D$(Q):J[178].
  29. 330 [130]:[139]L[178]9[167][153]D$(2):J[178]0:[139]L%(15)[167][153]D$(15)
  30. 335 [139]L[178]10[167][153]"GUARD OUTSIDE HUT.":J[178]0
  31. 340 [139]J[167][153]"NOTHING";:[139]X[177]10[167][153]" SPECIAL";
  32. 345 [153]:[141]2:[139]N[177]10[176]J[178]0[167]9
  33. 350 [153]"OBVIOUS EXITS ARE:":[139]J[175]1[167][153]"WEST
  34. 360 IFJAND2THENPRINT"EAST
  35. 365 [139]L[178]1[167][153]"NORTH":[153]"SOUTH"
  36. 399 [137]9
  37. 400 [139]L%(N)[178]L[167]L%(N)[178]H:[137]299
  38. 410 [139]N[178]25[175]L%(N)[178]20[167]L%(N)[178]H:[137]7
  39. 449 [137]6
  40. 500 [139]L[178]2[167]L[178]9:[137]7
  41. 510 [137]6
  42. 600 [139]L%(N)[171]H[167][153]"I DON'T HAVE IT!":[137]7
  43. 605 [133]"WHERE";R$:R$[178][200](R$,2):[139]L[178]9[176]L[178]2[167][139]N[178]14[175]R$[178]"LI"[175]L%(15)[167]690
  44. 610 [139]N[178]21[175]L[178]8[167][139]R$[178]"HU"[176]R$[178]"LE"[167]650
  45. 620 [139]L[171]5[176]N[171]25[176]R$[179][177]"ST"[167]3
  46. 630 L%(N)[178]11:D$(N)[178]"STEPPING STONES":[137]8
  47. 650 [153]"CONGRATULATIONS!  YOU FIXED THE HULL ANDSAILED HOME.":[128]
  48. 690 L%(14)[178]2:L%(15)[178]0:[153]"HIT LIONS ON HEAD AND THEY RAN AWAY!":[137]299
  49. 700 [133]"WITH WHAT";R$
  50. 710 [139]L[178]10[175][200](R$,2)[178]"KN"[167]L[178]4:[153]"TUNNELLED INTO OLD SILVER MINE.":E[178]1:[137]299
  51. 720 [137]3
  52. 800 [139]N[178]14[167]3
  53. 805 [139]N[171]18[167]600
  54. 810 [139]T[178]0[167]3
  55. 820 [139]L[178]4[167][153]"NOT A GOOD IDEA!":[137]299
  56. 830 L%(4)[178]0:L%(20)[178][171]5:P[178]1:[137]299
  57. 900 [139]N[178]16[175]L%(22)[178]H[167]D$(N)[178]"HYPNOTIZED SNAKES":C[178]1:[137]8
  58. 910 [137]3
  59. 1000 [139]L[178]10[167][153]"GUARD WON'T LET ME!":[137]9
  60. 1002 [139]L[178]3[167][153]"THE MORE I MOVE THE   FASTER I SINK!":[137]9
  61. 1004 [139]N[178]23[167][153]"I CAN'T SWIM!":[137]9
  62. 1005 [139]N[177]28[167]L%(28)[178]0:[139]L[178]1[167]L%(27)[178]([187](0)[179].3):[137]8
  63. 1006 [139]L[178]9[175]N[178]2[167]L[178]2:[137]7
  64. 1008 [139]N[178].[167]1099
  65. 1010 [141]2:[139]L[178]5[167]1050
  66. 1012 [139]L[178]7[167]1070
  67. 1014 [139]L[178]1[175]N[178]2[175]L%(2)[167]L[178]2:[137]8
  68. 1015 [139]N[178]29[175]L[178]2[175]L%(15)[167][153]"LIONS WON'T LET ME BY":[137]9
  69. 1020 [139]N[178]29[167][139]J[175]1[167]L[178]L[170]1
  70. 1030 [139]N[178]30[167][139]J[175]2[167]L[178]L[171]1
  71. 1040 [137]299
  72. 1050 [139]P[178]0[175]N[178]4[167]L[178]N:[137]7
  73. 1055 [139]N[178]11[167]1085
  74. 1060 [137]1099
  75. 1070 [139]N[178]8[167]L[178]N:[137]7
  76. 1075 [139]N[171]6[167]1099
  77. 1080 [139]C[167]L[178]N:[137]7
  78. 1085 [153]"NOT A GOOD IDEA!":[137]7
  79. 1099 [153]"I CAN'T GO THERE":[137]7
  80. 1100 J[178]1:[153]"I HAVE:":[129]Q[178]12[164]25:[139]L%(Q)[178]H[167][153]D$(Q):J[178].
  81. 1110 [130]:[139]J[167][153]"NOTHING."
  82. 1120 [137]9
  83. 1200 [139]L[171]7[176]N[171]26[176]L%(22)[167]3
  84. 1210 L%(22)[178]H:[153]"GRATEFUL NATIVES GAVE ME A FLUTE.":[137]9
  85. 1300 [139]N[171]27[176]L[171]1[176]L%(27)[178]0[167]3
  86. 1310 [153]"AHA!  WATER.  NOW I CAN SEE STRAIGHT.":L%(2)[178]1:[137]9
  87. 1400 [133]"TO WHAT";R$:R$[178][200](R$,2):[139]L[171]4[176]N[171]18[176]L%(18)[171]H[176]R$[179][177]"SU"[167]3
  88. 1410 T[178]1:[137]8
  89. 1500 [139]N[171]11[176]L[171]5[167]6
  90. 1510 [139]L%(25)[171]11[167][153]"NOT A GOOD IDEA!":[137]9
  91. 1520 L[178]7:[137]8
  92. 2900 [133]"WITH WHAT";R$:R$[178][200](R$,2):[142]
  93. 9020 [153]"ALL RIGHTS RESERVED.
  94. 9999 DIMD$(28),L%(28):L=1:H=99:A$=" CAYESCLOGECLTHDIPUCHGOINFECUTICR
  95. 10010 B$[178]" DEOAQUMIENCAVISHTRHUSTKNFOCOLISNSUVIHURUTAFLOCLERONACAPLWEEANOSO
  96. 10015 FORQ=1TO28:READD$(Q):NEXT:DATADESERT,OASIS,QUICKSAND,MINE,MINE ENTRANCE
  97. 10018 DATACAVE,VILLAGE,SHIPWRECK,TREE
  98. 10020 DATAHUT,STREAM,KNIFE,FOOD,COCONUT,LIONS,POISONOUS SNAKES,SUPPORT BEAMS
  99. 10025 DATAVINES,HUNGRY PIRAHNA,PILE OF RUBBLE,TAR,FLUTE,OCEAN,LEAKY HULL,ROCKS
  100. 10030 DATANATIVES,CACTUS,PLANE WRECK
  101. 10080 FORQ=1TO28:READL%(Q):NEXT
  102. 10085 DATA0,0,-3,-5,0,-7,0,-7,-2,0,-5,99,99,9,-2,-6,-4,5,-11,0,6,0,-7,-8,20,-7,-1,-1
  103. 10090 GOTO300
  104.